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BASIC 


FUNCIONES (II) 


| Funciones 
con 

argumento 

alfanumérico 


ONGITUD de una ca- 
dena: LEN 

El formato general 
es el siguiente: 


LEN (NS) 


por tanto, acepta un 
único argumento al- 
fanumérico y da 
como resultado la longitud de dicho ar- 
gumento, es decir, el número de carac- 
teres que lo integran. 

Veamos algunos ejemplos: 


Comando directo Resultado 
PRINT LEN (“EJEMPLO”) 7 
LET AS = “24680”: PRINT LEN (AS) 5 
LET A = LEN (“LONGITUD”): PRINT A 8 


Valor numérico: VAL 
El formato es el siguiente: 


VAL (N$) 


Acepta un solo argumento alftanuméri- 
co que debe cumplir la condición de es- 
tar formado exclusivamente por dígitos y 
opcionalmente un signo (+ O —) y un pun- 
to. 

Devuelve como resultado la constante 
numérica correspondiente a ese conjun- 
to de dígitos, es decir, transforma el dato 
altanumérico en un dato numérico. 

Por ejemplo: 


Comando directo Resultado 
PRINT VAL (“1234”) 1234 
LETAS = “23.8”; PRINT VAL (AS) 23.8 
LETA = VAL (“-24.5”): PRINT A -24.5 


Existe una función inversa a VAL que se 
denomina STR$. Esta función la veremos 
mas detenidamente cuando estudiemos 
las funciones alfanuméricas. 


Código ASCII: ASC 


El código ASCII es un código existente 
en todos los ordenadores mediante el 
cual a cada carácter (letra, número o 
signo) le corresponde un número. De he- 
cho, todos los caracteres disponibles en 
nuestro ordenador se almacenan en me- 
moria en forma de número, es decir, re- 
presentados por su código ASCII corres- 
pondiente. 

Estos códigos varían desde 0 hasta 255. 
Del 0 al 31 corresponden a caracteres y 
teclas de control así como a algunos ca- 
racteres gráficos. A partir del código 32 
hasta el 126 suelen situarse los caracte- 
res estándar de todos los ordenadores: 
del 32 al 47 signos diversos de uso co- 
mún, del 48 al 57 los números naturales 
(de 0 a 9), del 58 al 64 más signos, del 65 
al 90 las letras mayúsculas, del 91 al 96 
otro conjunto de signos, del 97 al 122 las 
letras minúsculas y, finalmente, más sig- 
nos. A partir del código 127 la mayoría 
de los ordenadores incluyen diversos ca- 
racteres gráficos, que suelen variar mu- 
cho de unas máquinas a otras. El SPEC- 
TRUM constituye una excepción, ya que, 
a partir del código 165, incluye todas las 
palabras BASIC de que dispone. Por otra 
parte, el COMMODORE incluye caracte- 
res gráficos a partir del código 97, ya que 
no dispone de minúsculas. 

Visto este pequeño resumen del códi- 
go ASCII, pasamos a analizar la función 
ASC. Su formato es el siguiente: 


ASC (N$) 


por tanto, utiliza un único argumento al- 
fanumérico y devuelve como resultado 
el código ASCIl correspondiente al pri- 
mer carácter del argumento. 

Veamos algunos ejemplos: 


Comando directo Resultado 
PRINT ASC (“JAVIER”) 74 
LET AS = “E”: PRINT ASC (AS) 69 
LET A = ASC (“6”): PRINT A 54 


En el SPECTRUM esta función se denomi- 
na CODE. 

Todos los ordenadores disponen de 
una función inversa de ASC que se deno- 
mina CHR$ y que estudiaremos cuando 
veamos las funciones alfanuméricas. 

Por último, puntualizar que las tres fun- 
ciones analizadas hasta aquí están dis- 
ponibles en todos los ordenadores, sin 
excepción. 


WM Funciones alfanuméricas 


Conversión a cadena: STR$ 


Esta función es inversa de VAL y tiene 
el formato siguiente: 


STRS (N) 


por tanto, acepta un único argumento 
numérico y lo transforma en cadena de 
caracteres (resultado altanumérico): 

Por ejemplo: 


Comando directo Resultado 


PRINT STR$ (42) “42” 
LET A = 32.5: PRINT STRS (A) «32.5» 
LET AS = STR$ (-74): PRINT AS “4” 


Evidentemente las comillas ('') no apa- 
recen, sin embargo, las hemos represen- 
tado aquí para hacer más patente el ca- 
rácter alftanumérico del resultado. 


Carácter ASCIl: CHR$ 


La función CHR$ es inversa de ASC y tie- 
ne el siguiente formato: 


CHR$ 


Acepta un argumento numérico que 
debe estar comprendido entre 0 y 255 
(intervalo del código ASCII). Devuelve 
como resultado el carácter correspon- 


diente al código ASCII especificado en el 


argumento. 
Por ejemplo: 
Comando directo Resultado 
PRINT CHR$ (106) J 
LET A = 67: PRINT CHRS (A) G 


LET AS = CHR$S (50): PRINTAS 2 


El programa 1 nos permite obtener en 
pantalla la lista de todos los códigos AS- 
Cll con sus caracteres correspondientes. 


REM AEREA ELA ARA 
20 REM * CODIGOS ÁSCI x 
30 REM AXEL RALEAERA 
40 CLS 

PRINT 


e e o e e e 


PRINT C,CHR$(C> 
NEXT € 


En la figura 1 podemos ver el aspecto 
de la pantalla durante la ejecución. 


CODIGO CARACTER 


$* 
+ 
% 
ee 
Y 
C 
) 
* 
+ 
, 


DBUN-=0x+ 


Cadena de caracteres: STRING$ 
El formato es el siguiente: 
STRINGS$ (N, MS) 


por tanto, admite dos argumentos: el pri- 
mero numérico y el segundo alfanuméri- 
co. El resultado es una cadena constitui- 
da por tantos caracteres como indique 
el argumento numérico y tomando como 
carácter tipo el primer carácter del argu- 
mento alfanumérico especificado. 
Veamos algunos ejemplos: 


Comando directo Resultado 
PRINT STRINGS (4, “=”) ==== 
LETA=2: LETBS = “E”: 

PRINT STRINGS (A, BS) EE 

LET AS = STRINGS (5, “JA”): 

PRINT AS JJJJ 


. BASIC 


Fragmentación por la izquierda: LEFT$ 
El formato general es: 


LEFTS (NS, M) 


Acepta dos argumentos: el primero al- 
fanumérico y el segundo numérico. De- 
vuelve como resultado una cadena com- 
puesta por los M primeros caracteres de 
la cadena N$ especificada en el argu- 
mento. 

Por ejemplo: 


Comando directo Resultado 
PRINT LEFTS (“LIBRERIA”, 5) LIBRE 
LETAS = “ESTAR”: LETB=2: 

PRINT LEFTS (AS, ES 

B SIL 


) 
LET AS = LEFTS (“SILLA”, 3): PRINT AS 


Fragmentación por la derecha: RIGHTS 
El formato es el siguiente: 


RIGHTS (N$,M) 


por tanto, admite dos argumentos, el pri- 

mero alfanumérico y el segundo numéri- 

co. El resultado es una cadena compues- 

ta por los M últimos caracteres de la ca- 

dena N$ especificada como argumento. 
Veamos algunos ejemplos: 


Comando directo Resultado 


PRINT RIGHTS (“SONRISA”,4) RISA 
LET AS="COMILLAS”: LET B=6: 
PRINT RIGHTS(AS,B) 

LET AS=RIGHTS(“HOLA”,3): PRINT 
AS OLA 


MILLAS 


Fragmentación por el centro: MID$ 


El formato general es el siguiente: 

MIDS (NS, M, P) 
por tanto, utiliza tres argumentos, el pri- 
mero alfanumérico y los otros dos numé- 
ricos. El resultado es una cadena forma- 
da por P caracteres de la cadena NS es- 
pecificada como argumento, a partir de 
la posición M. 


Por ejemplo: 


Comando directo Resultado 
PRINT MIDS (“GALLINA”, 2, 4) ALLI 
LETAS = “SONIDO”: LETB = 3: LET C=2 

PRINT MIDS (AS, B, C) NI 

LET AS = MID$ (“ESCONDER”, 3, 5): PRINT AS CONDE 


Fragmentación en el Spectrum 


Las tres funciones vistas para fragmen- 
tación en cadenas no están disponibles 
en el SPECTRUM, sin embargo, esto no sig- 
nifica que no sea posible la fragmenta- 
ción, simplemente es distinta. 

El formato es el siguiente: 


NS (M TO P) 
es decir, toma de la cadena N$ los ca- 
racteres comprendidos entre la posición 
M y la posición P, siendo P mayor que M. 
Cuando vayamos a fragmentar por la ¡z- 
quierda no será necesario especificar M 
(que valdrá 1), y cuando la fragmenta- 
ción sea por la derecha, no necesitare- 
mos indicar P (que será la posición del úl- 
timo carácter). 
Veamos algunos ejemplos: 


Comando directo Resultado 
PRINT “VENTANA” (2 TO 5) ENTA 
LET AS = “SACACORCHOS”: PRINT SACA 
AS (TO 4) 

LET AS = “CASCANUECES”: LET NUECES 


B = 6: PRINT AS (B TO) 


Pulsación de una tecla: INKEY$ 


Esta es una función alftanumérica espe- 
cial, ya que no requiere ningún tipo de 
argumento. 

El objetivo de INKEYS$ es la lectura ins- 
tantánea del teclado así como la identi- 
ficación de la tecla que esté pulsada en 
ese momento. Si no hay ninguna tecla 
pulsada la lectura será la cadena vacía 


(5. 
Para que la función INKEYS resulte útil 
se suele utilizar de la forma siguiente: 


10 IF INKEYS = “” THEN GOTO 10 
o también la forma: 
10 LET AS = INKEYS: IF AS = “” THEN GOTO 


10 


De este modo producimos un bucle en 
la línea 10 que obliga a realizar sucesi- 
vas lecturas del teclado, hasta que se 
pulse una tecla cualquiera. 

Si añadimos la línea: 


20 PRINT “Has pulsado la tecla”; AS 
se imprimirá en pantalla la tecla pulsada. 


El COMMODORE dispone de la función 
GET, que es equivalente a INKEYS. La lí- 
nea 10 en el COMMODORE se escribiría: 


10 GET AS: IF AS = “” THEN GOTO 10 


Podemos observar que INKEY$ (o GET) 
e INPUT presentan ciertas analogías: am- 
bas nos permiten introducir un dato por 


te datos numéricos o alfanuméricos de 
cualquier longitud y hay que pulsar INTRO 
tras teclear dicho dato, mientras que IN- 
KEYS sólo admite datos altanuméricos de 
un sólo carácter, y no necesita pulsar IN- 
TRO a continuación. 

Para finalizar, el programa 2 utiliza va- 
rias de las funciones estudiadas en este 


teclado. La diferencia es que INPUT admi- capítulo. 


REM XXXL 
REM * NOMBRES * 
REM XXI 
CLS 

INPUT "DIME TU NOMBRE" ¡N$ 
CLS 
PRINT TAB(17);"OPCIONES" 
PRINT :PRINT :PRINT 
PRINT TAB(9);"1. INICIAL DEL NOMBRE" :PRINT 
PRINT TAB(9>;"2. ULTIMA LETRA DEL NOMBRE" :¿PRINT 
PRINT TAB(9>;"3. NOMBRE EN VERTICAL" 
PRINT :¿PRINT :PRINT 

PRINT TAB(9)>;"PULSA LA OPCION DESEADA" 
LET A$=INKEY$:1F A$="" THEN GOTO 140 

IF ASC(AS$)<49 OR ASCCAS$)>51 THEN GOTO 140 
CLS 

LET A=VAL(A$) 

ON A GOTO 200,300,400 

REM * PRIMERA OPCION * 

PRINT "NOMBRE :",N$ 

LET I$=LEFTS(N$,1> 

PRINT "INICIAL :",1$ 

GOTO 500 

REM * SEGUNDA OPCION * 

PRINT "NOMBRE :",N$ 

LET US=RIGHT$(N$,1> 

PRINT "ULTIMA LETRA :",U$ 

GOTO 500 

REM * TERCERA OPCION * 

LET L=LEN(N$> 

FOR I=1 TO L 

LET C$=MID$(N$,1,1> 

PRINT Cs 

NEXT 1 

PRINT :¿PRINT :PRINT 

PRINT "¿QUIERES VOLVER A EMPEZAR? (S/N) " 
LET AS=INKEY$:1F A$="" THEN GOTO 520 

IF A$="S" OR A$="s" THEN GOTO 40 

IF A$<>"N" AND A$<>"n" THEN GOTO 520 


En el SPECTRUM habrá que sustituir las si- 
guientes líneas: 


150 IF CODE (A$) < 49 OR CODE (AS) > 
51 THEN GOTO 140 


180 GOTO (A + 1)* 100 

220 LETIS =N$ (1) 

320 LET L = LEN NS; LET US =NS (L) 
420 LETCS =NS Cl) 


Comandos 
de 
bifurcación 
condicionada 


STOS comandos se 
utilizan para la toma 
de decisiones, gene- 
ralmente detrás de 
uno de los comandos 
de comparación. Es- 
tán basados en las 
dos posibles configu- 
raciones «1» y «0» de cada uno de los si- 
guientes cuatro flags: N, Z, C y V. 

Para que el microprocesador sepa a 
qué posición debe bifurcar, será necesa- 
rio un operando que indique la dirección 
de destino. 

Vamos a introducir ahora un tipo espe- 
cial de direccionamiento llamado «di- 
reccionamiento relativo». Es muy sencillo 
y tan sólo requiere un poco de atención. 

Podría tomarse simplemente la direc- 
ción de destino, desglosarla en el Low 
byte (byte bajo) y High byte (byte alto) 
como ya hemos hecho otras veces, con 
lo que resultaría un comando de tres 
bytes, uno para el código del comando 
y los otros dos para el operando. Sin em- 
bargo, la mayor parte de las veces el sal- 
to que hemos de hacer no es superior a 
+/-127 pasos de programa y este núme- 
ro puede ser representado con ocho bits 
= 1 byte. De esta manera, no se define la 
dirección a la que se debe saltar, sino la 
distancia entre la posición actual y la po- 
sición después del salto. Esto es lo que se 
llama direccionamiento relativo. 

Muchas veces, sin embargo, será ne- 
cesario realizar saltos hacia atrás, y ten- 
dremos que representar números negalti- 
vos con la configuración binaria de ocho 
bits. Si hace un poco de memoria recor- 


MAQUINA 6502 


(COMMODORE 64) 


dará cómo lo hacíamos en la resta bina- 
ria cuando hablamos de los números 
complementarios cuya suma era preci- 
samente 256. 

De esta manera si el número «1» se re- 
presenta %00000001, el número «—1» se 
representaría como su complementario 
(los bits a «1» pasan a «0» y viceversa) 
más «1»: SIBLIELTE El número 
2=%00000010 pasaría a -2=%11111110, 
y así sucesivamente. 

Por tanto, el bit 7, o bit más significati- 
vo, decide si un número es positivo (0) o 
negativo (1). 

Veamos ahora cómo calcular la distan- 
cia en un salto relativo, también llamada 
OFFSET. Para ello nos vamos a servir de un 
ejemplo ilustrativo. 

Supongamos que queremos hacer una 
rutina que presente en pantalla el juego 
de caracteres del COMMODORE 64. 

Quedaría una cosa así: 


LDX $00 
1010  TXA 

1020 STA $0400,X 
1030  LDA XO1 
1040 STA $D800,X 
1050  INX 

1060  BNE ???? 
RTS 


La línea 1000 carga el registro X a cero. 
La línea 1010 carga el registro ACU con 
el valor que haya en el registro X. Esto es 
porque en la línea 1020 hay un direccio- 
namiento indexado que sólo se puede 


hacer con el ACU. La posición 
$0400=1024 es la primera correspon- 
diente a la RAM de vídeo. Cuando X se 
vaya incrementando, también se irá in- 


crementando la posición en la que se in- 
troduce el dato a partir de la 1024. La lí- 
nea 1030 carga el ACU a «1», para que el 
color del carácter siempre sea el mismo, 
en este caso «amarillo». 

La línea 1040 se encarga de ir introdu- 
ciendo el código del color, a partir de la 
posición $D800=55296 en adelante se- 
gún se incremente el valor en X. 

La línea 1050 incrementa el valor del 
registro X en una unidad. 

En la línea 1060 queremos que se bifur- 
que siempre que el estado del flag sea 
diferente de cero. La primera vez que el 
procesador llega aquí, el valor de X=1, 
por tanto, bifurcará hasta que llegue al 
valor X=255, pues después del comando 
INX, el valor de X=0 y el flag Z=1; enton- 
ces ya no bifurca, sino que sigue a la lí- 
nea 1070 RTS y se acaba la rutina. El pro- 
blema es qué número habría que poner 
después de BNE para que el procesador 
sepa a dónde saltar. 

Pues bien, si arrancamos el programa 
en la dirección $C000, aparecería lo si- 
guiente: 


$C000 LDX + $00 
$C002 TXA 


Está claro que lo que interesa es saltar 
al comando TXA cada vez que se pase 
por la instrucción BNE, es decir, saltar a la 
posición $C002. 

Veamos en qué posición se encuentra 
el procesador cuando llega a la línea 
1060. 


LDX X$00 
$C002 TXA 
$C003 STA $0400,X 
$C006 LDA f$01 
$C008 STA $D800,X 
$C00B  INX 

$C00C  BNE $C002 
RTS 


Cuando ha leído la instrucción BNE 
$C002 se encontrará DOS posiciones más 
adelante de $COOC, es decir, en la po- 
sición $COOE. 

No se extrañe, pues se trata de un co- 
mando de dos bytes y no de tres, ya que 
la posición $C002, al estar a una distan- 
cia menor de 255 bytes (direccionamien- 


to relativo), bastará saber dicha distan- 
cia y no la dirección de destino. 
Para ello restamos: 


$C002 
= $C00E 


SFFF4 


A2 00  LDX $00 
$c002 8A TXA 
$C003 9D 00 OASTA $0400,X 
$C006 AY 01  LDA $01 
$C008 9D 00 D8STA $D800,X 
$C00B E8 INX 

$C00C DO FA  BNE $C002 
60 RTS 


Del resultado nos quedamos con el Low 
Byte $F4, que es el offset buscado. Si el 
salto es hacia adelante, se hace una res- 
ta normal y corriente y se toma el resul- 
tado completo. 

Este valor será el que aparezca en el 
desensamblador del programa. Sin em- 
bargo, usted tan sólo debe teclear la di- 
rección de destino $C002, como se indi- 
ca en el programa anterior, y el ensam- 
blador utilizado para introducir la rutina 
en C.M. se encargará de calcular el «off- 
set». 

Si teclea el programa anterior, y se fija 
en el desensamblado después, verá que 
aparece lo siguiente: 

Ejecute el programa en lenguaje má- 
quina, y a continuación su equivalente 
en BASIC, y verá que este último tarda 
casi siete segundos, mientras que en 
C.M. apenas lo podrá medir. 

¿Qué ventajas proporciona el direc- 
cionamiento relativo? Además del 
ahorro de memoria, pues se trata de un 
comando de dos bytes, y la consiguien- 
te rapidez de ejecución, hay una cues- 
tión muy importante: al microprocesador 
se le indica únicamente la distancia que 
hay desde donde actualmente se en- 
cuentra hasta la posición a la que debe 
saltar. Así un programa en el que se mo- 
difiquen, añadan o borren instrucciones 
fuera del intervalo de salto, no necesita 
una modificación del programa dentro 
del intervalo, pues la distancia entre los 
extremos permanece inalterada. 
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Lo único que se debe tener en cuenta 
a la hora de utilizar el direccionamiento 
relativo es que tan sólo se pueden reali- 
zar saltos de 129 bytes adelante y 126 
bytes hacia atrás. 

Tampoco debe preocuparle el cálculo 
de la distancia entre las dos posiciones 
de memoria, es trabajo del programa en- 
samblador que está utilizando. 

Diremos que existen bifurcaciones se- 
gún el estado de los flags: 


1) Z-Zero flag 

2) N - Negative 

3) C - Carry flag 
4) V - Flag V 


1) Cuando se quiere bifurcar con el 
flag Z activado se utiliza el comando BEQ, 
del inglés «Branch on Equal». Es decir, 
cuando utilizamos un comando de com- 
paración, si el resultado es igual a cero, 
y a continuación introducimos un BEQ, el 
microprocesador saltará a la dirección 
especificada. Si el resultado de la com- 
paración es diferente de cero, el micro- 
procesador seguirá a la siguiente direc- 
ción, no bifurcará. 

Si hay que bifurcar cuando el flag Z 
esté desactivado, se utilizará el coman- 
do BNE «Branch on Not Equal». 

2) La bifurcación con el flag N activa- 
do es BMI «Branch on Minus», y con el flag 
N desactivado BPL «Branch on Plus». 

3) Para bifurcar con el Carry flag acti- 
vado se utiliza el comando BCS «Branch 
on Carry Set», y para hacerlo con el Carry 
flag desactivado, BCC «Branch on Carry 
Clear». 

4) El flag overflow V, también puede 
utilizarse como base para las bifurcacio- 
nes condicionadas. Para la bifurcación 
cuando está activado se usa el coman- 
do BVS «Branch on Overflow Set» y cuan- 
do esté desactivado BVC «Branch on 
Overflow Clear». 


La siguiente tabla ofrece un resumen 
de los comandos expuestos: 


Comando Flag base Código de co- 
mando 
BEQ Z $FO 
BNE YA $DO 
BCS $BO 
BG Cc $90 
BMI N $30 
BPL N $10 
BVS v $70 
BvC v $50 


'O Comandos para la bifurcación 
incondicional 


Cuando el procesador se encuentra 
una instrucción de este tipo salta siempre 
a la dirección especificada en el coman- 
do sin que se tenga que cumplir ningún 
tipo de condición. Es similar al GOTO del 
BASIC. 

Además del direccionamiento absolu- 
to existe el direccionamiento indirecto, 
utilizando dos posiciones contiguas en la 
memoria que forman un apuntador hacia 
la dirección de destino. El comando es 
JMP. 

Veamos un ejemplo de cada modo: 


JMP $C000 salta a la dirección $C000 
JMP ($0301) 


En este caso el procesador toma el 
dato en la posición $0301 en forma de LB 
o byte bajo. A continuación toma el dato 
de la posición siguiente $0302 en forma 
de HB o byte alto, y forma así un apunta- 
dor a $HBLB. Es a esta posición a la que 
se produce el salto. 

El código para JMP en direccionamien- 
to absoluto es $4C, y el código para el di- 
reccionamiento indirecto es $6C. 
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EDUCATIVOS + DE UTILIDAD «+ DE GESTIÓN + DE JUEGOS 


'O Laberinto R — Para darnos la vuelta y mirar 
lo que hay a nuestras espal- 

para das. 

SPECTRUM 


STE pequeño, pero 
emocionante juego, 
servirá para poner a 
prueba nuestro senti- 
do de la orientación. 
Al ejecutar el juego 
apareceremos den- 
tro de un laberinto, 
del cual tendremos que salir en el menor 
tiempo posible. Dicho laberinto cambia- 
rá de un juego a otro. 


Estamos dentro del laberinto y enfrente tenemos 
una pared. A la derecha tenemos dos callejones 
. y a la izquierda otros dos. 


Para movernos por el laberinto tene- 
mos que utilizar las siguientes teclas: 


SPACE — Para avanzar. 
O — Para girar a la izquierda. [A 
P — Para girar a la derecha. Nos encontramos en una encrucijada. 
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: 1 REM 
2 REM LABERINTO 
3 REM 

100 DIM v(10,10): DIM h(10,10) 
110 GO SUB 9000 

120: LET x=1: LET y=1: LET dx=1: 
LET dy=0 

125 LET ti=PEEK 23672+256x*PEEK 
23673+4096x*PEEK 23674 

130 LET L=9: LET Lx=x+(dx=-1): 
LET Ly=y+(dy=-1) 

132 LET L=L-1: LET Lx=Lx+dx: LE 
T Ly=Ly+dy 

134 IF dx<>0 AND v(Lx,Ly)=0 THE 
N GO TO 132 

136 IF dy<>0 AND h(Lx,Ly)=0 THE 
N GO TO 132 

140 CLS : GO SUB 6000+L 

145 LET Lx=Lx-(dx=-1): LET Ly=L 
y-(dy=-1) 

150 FOR :i=L TO 8 

155 LET Lx=Lx-dx: LET Ly=Ly-dy: 
GO SUB 1000: NEXT i b 

156 IF dx=-1 AND y=9 AND x<5 TH 
EN PRINT AT 10,14; "SALIDA" 

158 LET a$=INKEY$: IF a$="" THE 
N GO TO 158 

160 IF a$<>" " THEN GO TO 190 
170 IF (dx=1 AND v(x+1,y)=0) OR 
(dx=-1 AND v(x,y)=0) OR (dy=1 A 
ND h(x,y+1)=0) OR (dy=-1 AND h(x 
,»y)=0) THEN LET x=x+dx: LET y=y 
+dy 

190 IF x=1 AND y=9 THEN GO TO 
9990 

200 IF a$="r" THEN LET dx=-dx: 
LET dy=-dy: GO TO 130 

210 IF a$="0" THEN GO TO 300 
215 IF a$<>"p" THEN GO TO 130 
220 IF ABS dx=1 THEN LET dy=-d 
x: LET dx=0: GO TO 130 

230 LET dx=dy: LET dy=0: GO TO 
130 

300 IF ABS dx=1 THEN LET dy=dx 
: LET dx=0: GO TO 130 

310 LET dx=-dy: LET dy=0: GO TO 

130 

1000 IF dx<>1 THEN GO TO 1100 
1010 IF h(Lx,Ly+1)=0 THEN GO SU 
B 7500+i: GO TO 1050 
1020 GO SUB 7000+i 
1050 IF h(Lx,Ly)=0 THEN GO TO 8 
500+i 
1060 GO TO 8000+i 
1100 IF dx<>-1 THEN GO TO 1200 
1110 IF h(Lx,Ly)=0 THEN GO SUB 
7500+i: GO TO 1150 
1120 GO SUB 7000+i 
1150 IF h(Lx,Ly)=0 THEN GO TO 8 
500+i 
1160 GO TO 8000+i 
1200 IF dy<>-1 THEN GO TO 1300 
1210 IF v(Lx+1,Ly)=0 THEN GO SU 
B 7500+i: GO TO 1250 
1220 GO SUB 7000+i 
1250 IF v(Lx,Ly)=0 THEN GO TO 8 
500+i 


1260 GO TO 8000+i 

1300 IF v(Lx,Ly)=0 THEN GO SUB 
7500+i: GO TO 1350 

1310 GO SUB 7000+i 

1350 IF v(Lx+1,Ly)=0 THEN GO TO 
8500+i 

1360 GO TO 8000+i 

6000 PLOT 110,76: DRAW 0,24: DRA 
W 36,0: DRAW 0,-24: DRAW -36,0: 
RETURN 

6001 PLOT 108,75: DRAW 0,26: DRA 
W 40,0: DRAW 0,-26: DRAW -40,0: 
RETURN 

6002 PLOT 106,74: DRAW 0,28: DRA 
W 4430: DRAW 0,-28: DRAW -44,0: 
RETURN 

6003 PLOT 102,71: DRAW 0,34: DRA 
W 52,0: DRAW 0,-34: DRAW -52,0: 
RETURN 

6004 PLOT 94,65: DRAW 0,46: DRAW 
68,0: DRAW 0,-46: DRAW -68,0: R 
ETURN 

6005 PLOT 82,57: DRAW 0,62: DRAW 
92,0: DRAW 0,-62: DRAW -92,0: R 
ETURN 

6008 PLOT 64,45: DRAW 0,86: DRAW 
128,0: DRAW 0,-86: DRAW -128,0: 
RETURN 

6007 PLOT 40,29: DRAW 0,118: DRA 
W 176,0: DRAW 0,-118: DRAW -176, 
O: RETURN 

6008 PLOT 8,7: DRAW 0,162: DRAW 
240,0: DRAW 0,-162: DRAW -240,0: 
RETURN 

7000 PLOT 108,75: DRAW 2,1: DRAW 
0,24: DRAW -2,1: RETURN 

7001 PLOT 106,74: DRAW 2,1: DRAW 
0,26: DRAW -2,1: RETURN 

7002 PLOT 102,71: DRAW 4,3: DRAW 
0,28: DRAW -4,3: RETURN 

7003 PLOT 94,65: DRAW 8,6: DRAW 

0,34: DRAW -8,6: RETURN 

7004 PLOT 82,57: DRAW 12,8: DRAW 
0,46: DRAW -12,8: RETURN 

7005 PLOT 64,45: DRAW 18,12: DRA 

W 0,62: DRAW -18,12: RETURN 

7006 PLOT 40,29: DRAW 24,16: DRA 

W 0,86: DRAW -24,16: RETURN 

7007 PLOT 8,7: DRAW 32,22: DRAW 

0,118: DRAW -32,22: RETURN 

7008 PLOT 0,1: DRAW 8,6: DRAW O, 

162: DRAW -8,6: RETURN 

7500 PLOT 108,76: DRAW 2,0: DRAW 
0,24: DRAW -2,0: RETURN 

7501 PLOT 106,75: DRAW 2,0: DRAW 
0,26: DRAW -2,0: RETURN 

7502 PLOT 102,74: DRAW 4,0: DRAW 
0,28: DRAW -4,0: RETURN 

7503 PLOT 94,71: DRAW 8,0: DRAW 

0,34: DRAW -8,0: RETURN 

7504 PLOT 82,65: DRAW 12,0: DRAW 
0, 46: DRAW -12,0: RETURN 

7505 PLOT 64,57: DRAW 18,0: DRAW 
0,62: DRAW -18,0: RETURN 

7506 PLOT 40,45: DRAW 24,0: DRAW 
0,86: DRAW -24,0: RETURN 

7507 PLOT 8,29: DRAW 32,0: DRAW 

0,118: DRAW -32,0: RETURN 


7508 PLOT 0,7: DRAW 8,0: DRAW O, 
162: DRAW -8,0: RETURN 


8000 PLOT 148,75: 
W 0,24: DRAW 2,1: 
8001 PLOT 150,74: 
W 0,26: DRAW 2,1: 
8002 PLOT 154,71: 
W 0,28: DRAW 4,3: 
8003 PLOT 162,65: 
W 0,34: DRAW 8,6: 
8004 PLOT 174,57: 


DRAW -12,8: DR 


AW 0,46: DRAW 12,8: RETURN 


8005 PLOT 192,45: 


DRAW -18,12: D 


RAW 0,62: DRAW 18,12: RETURN 


8006 PLOT 216,29: 


DRAW -24,16: D 


RAW 0,86: DRAW 24,16: RETURN 
8007 PLOT 248,7: DRAW -32,22: DR 
AW 0,118: DRAW 32,22: RETURN 
8008 PLOT 255,1: DRAW -8,6: DRAW 


0,162: DRAW 8,6: 
8500 PLOT 148,76: 
W 0,24: DRAW 2,0: 
8501 PLOT 150,75: 
W 0,26: DRAW 2,0: 
8502 PLOT 154,74: 
W 0,28: DRAW 4,0: 
8503 PLOT 162,71: 
W 0,34: DRAW 8,0: 
8504 PLOT 174,65: 


RETURN 


DRAW -12,0: DR 


AW 0,46: DRAW 12,0: RETURN 


8505 PLOT 192,57: 


DRAW -18,0: DR 


AW 0,62: DRAW 18,0: RETURN 


8506 PLOT 216,45: 


DRAW -24,0: DR 


AW 0,86: DRAW 24,0: RETURN 


8507 PLOT 248,29: 


DRAW -32,0: DR 


AW 0,118: DRAW 32,0: RETURN 
8508 PLOT 255,7: DRAW -7,0: DRAW 


0,162: DRAW 7,0: 


RETURN 


9000 FOR i=1 TO 9: LET h(i,1)=1: 
LET h(i,10)=1: FOR j=2 TO 9: RE 
AD a: LET h(i,j)=a: NEXT j¿: NEXT 


9010 FOR i=1 TO 9: LET v(1,i)=1: 
LET v(10,i)=1: FOR j=2 TO 9: RE 
AD a: LET v(j,i)=a: NEXT j: NEXT 


9020 RETURN 
9100 DATA 1,1,1,0 
9101 DATA 0,0,1,0 
9102 DATA 1,1,0,0 
9103 DATA 0,0,1,1 
9104 DATA 1,1,2,0 
9105 DATA 1,0,0,0 
9108 DATA 1,1,1,0 
9107 DATA 1,1,1,0 
9108 DATA 1,0,0,0 
9200 DATA 0,0,0,0 
9201 DATA 1,1,1,1 
9202 DATA 0,0,0,0 
9203 DATA 0,1,0,0 
9204 DATA 1,1,0,1 
9205 DATA 1,1,1,1 
9208 DATA 0,0,0,0 
9207 DATA 1,1,0,0 
1 


9208 DATA 0,0,0 


9990 LET te=PEEK 236 
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6XPEEK 


23673+4096*PEEK 23674 


9991 LET t=te-ti 


9992 PRINT AT 0, 4; "ENHORABUENA. 
Esta Ud. fuera" 

9993 PRINT AT 1,4;"en ";t/50;" s 
egundos" 
9994 STOP 


Editor de caracteres 
para MSX 


Con la ayuda de este programa podre- 
mos definir nuestro propio juego de ca- 
racteres en el MSX. Estos caracteres sólo 
podrán ser utilizados en el modo 1 de 
pantalla (SCREEN 1). 

Una vez que el programa esté en me- 
moria y tecleemos la palabra RUN, nos 
aparecerá en pantalla una parrilla en la 
que tendremos que definir nuestros ca- 
racteres. También nos aparecerá un pe- 
queño menú de ayuda que nos dirá qué 
funciones nos permite realizar el progra- 
ma. 

Dentro de la parrilla veremos a un cur- 
sor parpadeando. Este cursor lo tendre- 
mos que ir moviendo por la parrilla para 
ir definiendo el carácter que queremos 
realizar. Para moverlo tenemos que utili- 
zar las teclas del cursor (o el joystick si se 
tiene). Una vez que estemos sobre un 
punto que queremos iluminar (o apagar) 
tenemos que pulsar la barra espaciado- 
ra. Si dicho punto estaba apagado, se 
iluminará, y si estaba iluminado se apa- 
gará. 

El resto de las funciones que podemos 
utilizar están disponibles pulsando las te- 
clas de función. Son las siguientes: 


F1 — INVIERTE EL CARACTER. Todos los 
puntos que estén iluminados se apagan 
y todos los que estén apagados se ilumi- 
nan. 

F2 — ROTA A LA IZQUIERDA. El carácter 
entero sufre un desplazamiento de un 
punto a la izquierda. La parte del carác- 
ter que desaparezca por la izquierda, 
reaparecerá por la derecha. 

F3 — ROTA A LA DERECHA. Igual que el 
anterior, pero en este caso el desplaza- 
miento es hacia la derecha. Lo que des- 
aparezca por la derecha reaparecerá 
por la izquierda. 
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F4 — ESPEJO HORIZONTAL. El carácter se 
nos aparece como si lo estuviésemos 
viendo reflejado en un espejo. Lo que an- 
tes estaba a la derecha ahora está en la 
izquierda y lo que estaba a la izquierda 
ahora está a la derecha. 

FS5 — ESPEJO VERTICAL. El efecto resul- 
tante después de pulsar esta opción es 
como si el carácter se hubiese dado la 
vuelta. Todo lo que antes estaba arriba 
ahora está abajo, y lo que estaba abajo 
ahora está arriba. 

F6 — LOAD. Sirve para leer un fichero 
que previamente hubiésemos grabado 
en cassette con todos los caracteres de- 
finidos. Para poder leer el fichero, éste 
tiene que haber sido grabado con la fun- 
ción que hay en la tecla F7. 

F7 — SAVE SET INTERNO. Nos sirve para 
grabar todos los caracteres que hemos 
definido de manera que más tarde poda- 
mos volver a leerlos con la tecla Fó para 
su modificación o terminación. 

F8 — SAVE EN LINEAS DE DATA. Pulsando 
esta opción, el ordenador nos grabará 
los caracteres que hemos definido alma- 
cenados en líneas DATA. De esta mane- 
ra, si queremos utilizar dichos caracteres 
en nuestros programas, sólo necesitamos 
realizar un MERGE para tener dichas lí- 
neas en nuestro programa. 

FO — EDITA UN CARACTER. Sirve para 
editar un carácter de los que el ordena- 


dor tiene almacenados. Esta opción nos 
puede servir para modificar los caracte- 
res que tiene el MSX. 

F10 — BORRA PARRILLA. El efecto que 
obtenemos al pulsar esta opción es el 
del borrado de la parrilla. 

Una vez que hemos terminado de defi- 
nir los caracteres que queríamos crear, 
para unirlos a nuestro programa, hay que 
realizar los siguientes pasos: 

1. Connuestro programa en memoria, 
realizar un MERGE de las líneas DATA. 

2. Incluir las siguientes líneas en nues- 
tro programa (los números de línea son 
arbitrarios y tendrás que poner los núme- 
ros de línea que mejor vayan con tu pro- 
grama): 


100 RESTORE N.? de línea donde empieza 
la primera línea DATA. 

110 LET N = BASE (7) 

120 FOR | = n1 TO n2 

130 FOR J=0T0 7 


140 READ A 

150 VPOKEN+8"1+J,A 
160 NEXT J 

170 NEXT | 


donde ni es el primer carácter que que- 
remos definir y n2 el último. 

Lo que hace este grupo de líneas es 
leer los números de las lineas DATA y al- 
macenarlos en la memoria del vídeo del 
MSX. 


1000 REM aaaSISlS OSOS ISI IOIOIOIOIOIOJOOJOK 
1010 REM 
1020 REM 
1030 REM 
1040 REM 
1050 REM 
1060 REM 
1070 REM 
1080 REM 
1090 REM 
1100 REM 
1110 REM 
1120 REM AoaaSlSIS ISSO SS SISTE lOISIOIOIOIOJOJOK 
1130 REM 

1140 REM odaSSIS MISS SSI lSlElOlSIOIOISlSlSJOIOOJOK 
1150 REM da ISSO OSOS lO lOJOIOIOIOOJOJOJAk 
1160 REM * (c) ED. SIGLO CULTURAL * 
1170 REM deSdSSISISIdISSSJSSlSlolSIOIOISIOJO E JJOJOk 
1180 REM * (c) 1987 + 
1190 REM AoaaSlSIS ISS SS aaa lOlOISIOIISIOIOOJOJJAk 
1200 REM oooO SO ESSE ISSO SJOOIOJOK 
1210 REM 

1220 SCREEN 1 

1230 LOCATE 0,0,0 

1240 COLOR 11,0,0 

1250 CLEAR 300 


2D: 10 TOR 


DE 


CARACTERES 


PARLA 


MSX 


E. ET E, E E XK 
XA E REO RARE E NE 


1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 


1470 
1480 


1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 


KEY OFF 
PRINT " EDITOR DE CARACTERES" 
PRINT " ¿xrII[BEOO 
LOCATE 1,12 
PRINT "ESPERE UN MOMENTO POR FAVOR" 
DIM C(255,7) 
DI=BASE(7) 
FOR G=0 TO 255 
FOR I=0 TO 7 
C(G, I)=VPEEK(G*8+DI+1I) 
NEXT I 
NEXT G 
REM 
INE O 
REM * DEFINICION DE VARIABLES x* 
REM oO SS SOS SOS” lolo l”SlSlOlOROK 
REM 
MU=BA+173x8 
F=0 
FOR I=DI+171*x8 TO DI+171*8+15 
READ A 
VPOKETI, A 
NEXT I 
DATA 0, 126,66, 66,66,66,126,0,0,126,126,126,126,126,126,0 
CLS 
LOCATE 15,3 
PRINT"CARACTER :" 
PU=65 
CX=0 
CY=0 
GOSUB 2450 
GOSUB 2150 
REM 
REM MMS SSI” lSlO llo kk 
REM * MENU PRINCIPAL x* 
REM ASSSSO OSO lSlOlO OOOO KK 
REM 
LOCATE 0,9 
PRINT"Opciones:" 
PRINT 
PRINT"F1-Invierte.”","F6-Load.","F2-Rota iz.","F7-Save set. ","F3-Rota der. ", 


"F8-Save data. ", "F4-Espejo hor.F9-Edita. ", "F5-Espejo ver.F10-Borra. ", STRING$(29, 


"-") 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 


GOSUB 1950 

REM 

REM SSA IS SISSI IOIOIOISIOIOIOIOTOK 
REM * FORMA DE CONTROL x 
REM x*x k 
REM * O=TECLADO k 
REM * 1=JOYSTICK k 
REM dSISlS SISSI SSISISIS OIJ 
REM 

FC=0 

ON STRIG GOSUB 2360 


STRIG(FC) ON 
ON INTERVAL=25 GOSUB 2250 
ON KEY GOSUB 2920, 2700, 2810, 3160, 3030, 3330,3560,3770, 2550, 4030 
FOR-151: TO 10 
KEY(I) ON 
NEXT I 
M=STICK(FC) 
IF M<>0 THEN STRIG(FC) OFF: INTERVAL STOP:F=1:GOSUB 2250 ELSE 1840 
FOR CC=1 TO 40 
NEXT CC 
CY=(CY+(M=1)-(M=5) AND 7) 
CX=(CX-(M=3)+(M=7) AND 7) 
F=1 
GOSUB 2250 
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1920 INTERVAL ON 

1930 STRIG(FC) ON 

1940 GOTO 1840 

1950 REM 

1980 REM sSSSS OSOS ISO lSlVIVIÓK 

1970 REM * PONE PARRILLA x*x 
1980 REM SISlSSS SST IVIVJOIOK 

1990 REM 

2000 INTERVAL OFF 

2010 STRIG(FC) OFF 

2020 LOCATE 0,0,0 

2030 FOR G=0 TO 7 

2040 T=128 

2050 FOR N=0 TO 7? 

2060 IF, (C(PU,G) AND T)=T THEN PRINTCHR$(172); ELSE PRINTCHAR$(171); 
2070 T=T/2 

2080 NEXT N 

2090 PRINT 

2100 NEXT G 

2110 INTERVAL ON 

2120 STRIG(FC) ON 

2130 BEEP 

2140 RETURN 

2150 REM 

2160 REM dsdSSSSlSlO SOS lSlOIOIS VS OJSJOJOK 
2170 REM * ASIGNA PARRILLA AL *x 


2180 REM * CARACTER 173. k 
2190 REM Armadillo la lolololo jo KOKk 
2200 REM 


2210 FOR G=0 TO 7 

2220 VPOKE MU+G,C(PU,G) 
2230 NEXT G 

2240 RETURN 

2250 REM 

2260 REM ddMOlSSIOlOlOIOJOlOK 

2270 REM + INTERVAL * 

2280 REM AMMSSOOlSloIOlOOKk 

2290 REM 

2300 LOCATE CX,CY,0 

2910 TES" 

2320 IF F THEN IF (C(PU,CY) AND 2”*(7-CX))<>0 THEN T$=CHR$(172) ELSE T$=CHR$(171) 
2330 PRINT T$ 

2340 F=-(F=0) 

2350 RETURN 

23860 REM 

2370 REM AMSRSdSOINIOlOOJOK 

2380 REM * TRIGGER * 

2390 REM ddddolddldldlolok 

2400 REM 

2410 VPOKE MU+CY, (VPEEK(MU+CY) XOR 2” (7-CX)) 
2420 C(PU, CY) =WPEEK(MU+CY) 
2430 RETURN 

2440 REM 

2450 REM dddsSSO SISI ldlO lolo lok 
2460 REM * PONE EL CARACTER * 


2470 REM * ASIGNADO * 
2480 REM AddoldaSSlSOEIRAISISIPISl”OlO OAK: 
2490 REM 


2500 INTERVAL OFF 

2510 LOCATE 13,5 

2520 PRINT PU;”" ";TAB(18);"-";CHR$(PU);"-";CHR$(173) 
2530 INTERVAL ON 

2540 RETURN 

2550 REM 

2580 REM aoalSlSÓSlOlaSlSlalolOJlololololaK 

2570 REM * EDITA EL CARACTER x* 

2580 REM * ELEGIDO. * 

2590 REM aMoMSlSMIS ASSIM IOloJOIOIOOK 


2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 


REM 
GOSUB 4340 
LOCATE 0,17 
INPUT"Caracter a editar";A$ 
PU=ASC(A$) 
GOSUB 2170 
GOSUB 2450 
GOSUB 1950 
GOSUB 4260 
RETURN 
REM 
REM dodo dodo dodo ak a ak ak ok ok ok 
REM * ROTACION IZQUIERDA *x 
REM Ads S OOO OOOO Ojo jdakojokok ok 
REM 
FOR I=0 TO 7 
C(PU, I)=(C(PU, I)*x2 AND 254)+(C(PU, 1) AND 128)/128 
VPOKE MU+I,C(PU, I) 
NEXT I / 
GOSUB 1950 
RETURN 
REM 
REM SS lSISO SO lSlSlOlOjOJololO OK 
REM * ROTACION DERECHA x* 
REM ROO ROO dd ok 
REM 
FOR I=0 TO 7 
C(PU, I)=(C(PU,1)/2 AND 127)+128x*(C(PU, I) AND 1) 
VPOKE MU+I,C(PU, 1) 
NEXT I 
GOSUB 1950 
RETURN 
REM 
REM dSSSS SES SlSS SO SOS OOOO lok 
REM * INVERSION DEL CARACTER x*x 
REM dSSSS SS lSSlE ESOO ajajajaj jojolojok 
REM 
FOR G=0 TO 7 
C(PU,G)=(C(PU,G) XOR 255) 
VPOKE MU+G, C(PU,G) 
NEXT G 
GOSUB 1950 
RETURN 
REM 
REM MSM lS OOOO JO jOlOlOlOJOJOK 
REM * ESPEJO VERTICAL *x 
REM Asado dll 
REM 
FOR G=0 TO 3 
T=C(PU, 7-G) 
C(PU, 7-G)=C(PU, G) 
C(PU,G)=T 
NEXT G 
GOSUB 1950 
GOSUB 2150 
RETURN 
REM 
REM ASSSSO SS lSldlO la lolololololololok 
REM * ESPEJO HORIZONTAL * 
INE IS 
REM 
FOR G=0 TO 7 
B$=BIN$(C(PU,G)) 
B$=STRING$(8-LEN(B$),"0")+B$ 
A$="" 
FOR I=1 TO 8 
AS=MID$(B5$, I,1)+4$ 
NEXT I 


PROGRAMAS 


3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
3380 
3390 
3400 
3410 
3420 
3430 
3440 
3450 
3460 
3470 
3480 
3490 
3500 
3510 
3520 
3530 
3540 
3550 


3560 
3570 


3580 
3590 
3600 
3610 
3620 
3630 
3640 
3650 
3660 
3670 
3680 
3690 
3700 
3710 
3720 
3730 
3740 
3750 
3760 
3770 
3780 
3790 
3800 
3810 
3820 
3830 
3840 
3850 
3860 
3870 
3880 
3890 
3900 
3910 
3920 
3930 
3940 
3950 


C(PU,G)=VAL("2£B"+A$) 
VPOKE MU+G,C(PU,G) 
NEXT G 
GOSUB 1950 
RETURN 
REM 
REM RSS SOS OOOO jOjOjOJOJOKAOKOK 
REM * LOAD CARACTERES * 
REM ASS IS SSOlSISISlSSJOIOKOK 
REM 
GOSUB 4340 
LOCATE 0,17 


INPUT "A partir del caracter ";C$ 


INPUT "Nombre";N$ 
T=ASC(C$) 


PRINT"Ponga en marcha el cassette.." 


OPEN "cas: "+N$ FOR INPUT AS +1 

IF EOF(1) THEN 3510 

FOR I=0 TO 7 
INPUT$1,C(T, 1) 

NEXT 1 

T=T+1 

GOTO 3450 

CLOSE+H1 

GOSUB 4240 

GOSUB 1950 

GOSUB 2150 

RETURN 


REM 
REM OOOO K 


REM * SAVE * 
REM ebdloldlololok 
REM 
GOSUB 4340 
LOCATE 0,17 
INPUT"A partir del caracter";C$ 
T=ASC(C$) 
INPUT"Cuantos caracteres" ;N 
INPUT "Nombre";N$ 
GOSUB 4140 
OPEN "cas: '"+N$ FOR OUTPUT AS $1 
FOR G=T TO T+N-1 
FOR I=0 TO 7 
PRINT+$1,C(G, 1) 
NEXT 1 
NEXT G 
CLOSE+41 
GOSUB 4240 
RETURN 
REM 
REM SMS ISSO ISlSlOIOIOIOJOlO OK 
REM * SAVE COMO DATAS * 
REM SS R Sl ld ido lIokok 
REM 
GOSUB 4340 
LOCATE 0,17 
INPUT"A partir del caracter”;N$ 
T=ASC(N$) 
INPUT "Cuantos caracteres";N 
INPUT "Nombre";N$ 
INPUT "Linea de comienzo";LI 
GOSUB 4140 
OPEN "cas: "+N$ FOR OUTPUT AS $1 
FOR G=T TO T+N-1 
AS$=STR$(LI)+" DATA ' 
FOR I=0 TO 6 z 
A$=A$+"8H"+HEX$(C(G, 1))+",' 
NEXT I 


3960 AS=A$+"2H"+HEX$(C(G,7)) 
3970 PRINT41,AS$ 

3980 LI=LI+10 

3990 NEXT G 

4000 CLOSE+R1 

4010 GOSUB 4240 

4020 RETURN 

4030 REM 

4040 REM aRsdMS SISSI MIS lll IOlRJOIOJOR 
4050 REM * BORRADO DE CARACTER * 
4060 REM aaa RSS lS Ill lOllOIVIOK: 
4070 REM 

4080 FOR G=0 TO 7 

4090 GPU; 4)50 

4100 VPOKE MU+G, O 

4110 NEXT G 

4120 GOSUB 1950 

4130 RETURN 

4140 REM 

4150 REM dooSSlSlSSS SISSI llOlOIOIOJOK 
4160 REM * MENSAJE DE CASSETTE x* 
4170 REM addldlSloSRS SISMOS lOllOROIVIOIOK 
4180 REM 

4190 LOCATE 0,22 

4200 PRINT"Ponga en marcha el cassette 
4210 I$=INKEY$ 

4220 IF I$="" THEN 4210 

4230 RETURN 

4240 REM 

4250 REM daaaSdSSS SIS loORMIOIOIOOIOIOK 
4260 REM * BORRA LA VENTANA * 


4270 REM * INFERIOR *k 
4280 REM Adosado dla alo oJojok 
4290 REM 


4300 LOCATE 29,23 
4310 PRINT STRING$(203,127) 
4320 INTERVAL ON 
4330 RETURN 
4340 REM 
4350 REM AddoaadOSlSldlOldlolOlololokok 
4360 REM * PREPARA INPUT x 
4370 REM AdodSdSESlEl”lESldlOlSlOOK 
4380 REM 
4390 POKE R:HBF3F8, PEEK(SHF3FA) 
4400 POKE 8:HF3F9, PEEK(SHF3FB) 
4410 INTERVAL OFF 

/ 4420 RETURN 


y pulse una tecla"; 


pe 


1 Reloj educativo 
para AMSTRAD 


Este pequeño programa pensado para 
los más pequeños de la casa nos servirá 


para poder enseñarles cómo es un reloj 
y cómo leer la hora. 

Para mover las manecillas del reloj sólo 
tenemos que pulsar la tecla del cursor. La 
tecla del cursor a la derecha hace que 
aumente la hora, y cursor a la izquierda 
que disminuya. 


PROGRAMAS 


IEEE 
REM xxx RELOJ EDUCATIVO AA 
REM xxx Un programa realizado Xxx 
REM *xxx Por Ak 
REM xxx Carlos A. Maria Morin *xxx 
REM xxx KXAXk 
REM xxx (C> Ediciones Ak 
REM Xxx Siglo Cultural 1987 Xxx 
REM AMSOOIOOOIOOOOOO OOOO OOO OOOIOIOOOIOK 
REM 

MODE 2 

DEG 

m=6 

n=2.5 

SYMBOL 255,0,0,0,60,126,255,126,60 
ORIGIN 320,200 

FOR pu=0 TO 359 STEP 6 

PLOT 175*xSIN(pu)», 175*xC0S(pu>»,5 
NEXT 

TAG 

ORIGIN 0,0 

MOVE 312,385 

PRIATUIZ”:; 

MOVE 406,360 

PRIND1'"; 

MOVE 469,295 

PRENT "2%: 

MOVE 492,207 

PRINT"3”; 

MOVE 469, 120 

PRINT.*4"”:; 

MOVE 404,57 

PRINT- 58%; 

MOVE 316,29 

PRINT”6"; 

MOVE 228,57 

ERIN 000 

MOVE 164,118 

PRINT "8"; 

MOVE 141,207 

PRINT”9”; 

MOVE 162,294 

PRIVT "10"; 

MOVE 225,360 


460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 


PRIME: 


ORIGIN 320,200 


MOVE 


=3,10 


PRINT CHR$(255); 


IF INKEY(8>=0 THEN a=a+6: g=8+6:m=6:n=2.5 
IF INKEY(1)=0 THEN a=a+30: g=8+30: m=30: n=2.5 


IF g=30 THEN c=c+2.5:g=0 


MOVE 
DRAVW 
MOVE 
DRAW 
MOVE 
DRAW 
MOVE 
DRAW 
MOVE 
DRAVW 
MOVE 
DRAVW 


0,0 
120*xSIN(c>, 120xC05(c>, 1 

0,0 

160*xSIN(a>,160x*xC0S(a)>, 1 

0,0 
160*xSIN(a-m)>,160*xC0S(a-m),0 
0,0 

120xSIN(c>, 120x*xC05S(c>, 1 

0,0 

120x*xSIN(c-n>, 120xC0S(c-n>,0 
0,0 

160*SIN(a>,160*C0S(a>, 1 

470 


NA de las ventajas 
del método Merise 
es, precisamente, la 
facilidad que aporta 
para descomponer 
las tareas a abordar 
en el proyecto infor- 
mático, de tal modo 
que sea útil idependientemente del ni- 
vel de mecanización de la Empresa (del 
nivel de informatización conseguido) y 
del tamaño del proyecto que se desee 
abordar. Se pueden definir tres niveles 
de crecimiento en la informatización de 
una Organización. 


a) Primer nivel. Este primer nivel de 
arranque es el de las Empresas que están 
en fase de introducción de la Informática 
en su Organización. Los proyectos se 
ocupan de automatizar localmente o 
perfeccionar la automatización de algún 
proceso administrativo (facturación, nó- 
minas, gestión de ventas, etc.) sin entrar 
en las reglas de funcionamiento. Estos 
proyectos utilizan las capacidades resi- 
duales de los medios informáticos exis- 
tentes o dan pie para ampliarlos. 


4.9 NIVEL 
ETAPAS DE CRECIMIENTO 


Necesidades 

detectadas e 
Aplicaciones 
específicas 

2.2 NIVEL 3.% NIVEL 


Aplicaciones 


coherentes 
a Escenarlo 
Necesidades global 
consolidadas 


Esquema 
director 


TECNICAS DE ANALISIS 


DIFERENTES ETAPAS DEL DESARROLLO 
DE PROYECTOS INFORMATICOS 


En este primer nivel es útil introducir un 
plan informático. Este plan consiste, bási- 
camente, en planificar los proyectos 
para el siguiente año según las necesi- 
dades manifestadas por los usuarios; pre- 
vé el aumento necesario de capacidad 
de las máquinas disponibles o las nuevas 
compras a realizar. 

Cada proyecto no supone ninguna in- 
novación importante sobre las reglas de 
gestión establecidas o respecto de las 
informaciones que se manejan. La elabo- 
ración del dossier de especificaciones 
no tiene en cuenta, por tanto, ningún pa- 
rámetro desconocido. 

b) Segundo nivel. En esta etapa tanto 
los informáticos como los usuarios se 
preocupan de la coherencia y comuni- 
cación de las diferentes aplicaciones: se 
examinan a fondo ciertos procesos de 
gestión. Por ello, la elaboración de los 
proyectos informáticos pasa a ser más 
delicada, la duración de los estudios se 
alarga y los costes se elevan. Es necesa- 
rio en este caso adoptar un punto de vis- 
ta más «industrial» y considerar el proyec- 
to a realizar como una etapa más del des- 
arrollo de la empresa. Se impone en 
este caso realizar un cuidadoso estudio 
económico. Se desarrolla un plan en dos 
etapas: elaboración de un estudio de 
viabilidad y preparación posterior de un 
estudio detallado. 

El estudio de viabilidad cubre el con- 
junto del área a la que se refiere el pro- 
yecto (por ejemplo, gestión de personal, 
gestión comercial, etc.). En este estudio 
se incluye un plan global (lo que se lla- 
ma un «plan-masa») que contiene todas 
las soluciones futuras en el área involu- 
crada, con descomposición del proyec- 
to general en sub-proyectos y con el es- 


«| Evolución de la «informatización» de la Empresa. 


tablecimiento de un presupuesto provi- 
sional. Si el equipo directivo aprueba 
este estudio de viabilidad se van lanzan- 
do subproyectos dentro del plan informá- 
tico establecido. Cada uno de estos sub- 
proyectos da lugar a un estudio detalla- 
do que conduce al establecimiento del 
dossier de especificaciones de detalle 
correspondiente. Es importante en este 
estudio incluir los análisis necesarios en 
cuanto a costes y elaboración de los ca- 
lendarios correspondientes, según las li- 
mitaciones del «plan-mosa» definido y 
aprobado. 

Naturalmente, en cualquier momento, 
independientemente del nivel de meca- 
nización alcanzado pueden surgir nece- 
sidades específicas a resolver mediante 
un pequeño proyecto adicional. Se sue- 
le establecer en este caso un «informe- 


diagnóstico» para precisar la naturaleza 
y límites del problema a abordar: su cos- 
te, el calendario de su evolución y las im- 
plicaciones que pueda tener con el res- 
to de los proyectos definidos. Se puede 
hacer un test simple ante una situación 
de este tipo: ¿el problema está bien de- 
finido?, ¿están claramente enunciados 
los objetivos funcionales y aceptados 
por todas las personas involucradas?, ¿el 
proyecto se integra en algún otro pro- 
yecto de mayor envergadura?, ¿se pue- 
de hacer una evaluación global de ven- 
tajas aportadas y costes previstos? Si la 
contestación a estas cuatro preguntas es 
positiva, se puede pasar directamente a 
hacer el estudio detallado del proyecto. 
En caso contrario, merece la pena abor- 
dar previamente la realización de un es- 
tudio de viabilidad. 


Esquema 
director 


Proyecto 
individual 


Diagnóstico 


Estudio de 
viabilidad 


Estudio detallado 


Cc) Tercer nivel. Se llega a este nivel 
cuando ya es una realidad la «informalti- 
zación» de la Empresa, las aplicaciones 
existentes funcionan y se relacionan en 
alguna medida incipiente, se quieren 
modificar varios de los sistemas en fun- 
cionamiento, y el conjunto puede dejar 
de ser controlable en cualquier momen- 
to. Los responsables se sienten incapa- 
ces de tener en cuenta las diversas cir- 
cunstancias de cada subconjunto y se 
impone el análisis global de la Organiza- 
ción. En estas circunstancias suele ser 


Plan 
Informático 


Estudio de 
viabilidad 


Estudio detallado 


Desarrollo de los estudios informáticos. 


Estudio de 
viabilidad 


Estudio detallado 


conveniente concebir y analizar un esce- 
nario global previsible de evolución de 
los sistemas de información de la Empre- 
sa y, sobre él, llegar a definir un esque- 
ma-director. En este tipo de estudio se 
definen, con un horizonte de cinco a diez 
años, las grandes orientaciones de las or- 
ganizaciones, los ciclos de evolución de 
las aplicaciones y el desarrollo general 
de los bancos de información de la Com- 
pañía. Este esquema director es una 
magnífica herramienta de gestión del 
patrimonio informático de la Empresa. 


E Instrucciones 
de 

transferencia 

incondicional 


EMOS visto cómo es 
posible dar nombre a 
una instrucción para 
hacerla accesible 
desde otra parte del 
programa. Ahora va- 
mos a ver cómo se 
leva a cabo dicho 


acceso. 

La instrucción de transferencia incondi- 
cional indica al ordenador que la ejecu- 
ción secuencial de las instrucciones del 
programa debe detenerse en este mo- 
mento, saltar a la instrucción cuyo nom- 
bre se le indica y continuar secuencial- 
mente a partir de ese punto, hasta que 
se encuentre con una nueva instrucción 
de transferencia o con una instrucción 
de bucle, que son las únicas que modifi- 
can la marcha secuencial de los progra- 
mas. 

En BASIC y PASCAL la instrucción de 
transferencia incondicional tiene la for- 
ma: 


GOTO etiqueta 


donde «etiqueta» es el nombre de la ins- 
trucción a donde deseamos saltar, mien- 
tas que «GOTO» es una contracción de 
las palabras inglesas «GO TO», cuyo equi- 
valente castellano es «IR A». Naturalmen- 
te, en PASCAL habrá que añadir el punto 
y coma final en los casos en que sea ne- 
cesario. 


TECNICAS | 
DE PROGRAMACIÓN 


Más adelante veremos qué forma 
adopta esta instrucción en el lenguaje 
APL. 

Veamos un ejemplo de un programa 
en BASIC que utiliza la instucción GOTO: 


990 ¡instrucción 1 
1000 GOTO 2000 
1010 instrucción 2 


2000 instrucción 3 


2100 GOTO 1010 


cuya ejecución tiene lugar de la siguien- 
te manera: en cierto momento, durante 
la ejecución del programa, podrá ejecu- 
tarse la instrucción de etiqueta 990 (ins- 
trucción 1). A continuación le toca eje- 
cutarse a la instrucción de etiqueta 1000, 
pero lo que ésta hace es transferir la eje- 
cución a la instrucción de etiqueta 2000 
(instrucción 3). Después se ejecutarán 
secuencialmente algunas instrucciones 
más, hasta que, al llegar a la de etique- 
ta 2100, encontramos una nueva instruc- 
ción de transferencia incondicional, que 
nos envía a la instrucción de etiqueta 
1010 (instrucción 2). A partir de este mo- 
mento la ejecución continúa sucesiva- 
mente . Se observará, por tanto, que el 
orden en que se han ejecutado las tres 
instrucciones (instrucción 1, 3 y 2) es di- 
ferente de aquél en que han sido defini- 
das (instrucción 1, 2 y 3). 

Veamos el organigrama de este pro- 
grama, en el que hemos añadido la eti- 
queta de cada instrucción para facilitar 
su identificación: 


Puede comprobarse que las instruccio- 
nes de transferencia no aparecen explí- 
citamente en los organigramas de los 
programas, sino que se convierten sim- 
plemente en líneas que unen dos puntos 
del diagrama arbitrariamente alejados 
entre sí. 

Es conveniente utilizar con cuidado las 
instrucciones de transferencia incondi- 
cional, porque la libertad que proporcio- 
nan para alcanzar las instrucciones loca- 
lizadas en un punto y otro del programa 
puede llevar a la fragmentación de éste 
y hacerlo casi ininteligible, incluso 
para su autor. Veamos un ejemplo. Sea 
el programa 


1000 instrucción 1 
1010 inmstrucción 2 
1020 instrucción 3 
1030 instrucción 4 


cuyo organigrama es 


Observemos ahora el siguiente progra- 
ma: 


1000 instrucción 1 
1010 GOTO 1040 
1020 instrucción 3 
1030 GOTO 1060 
1040 instrucción 2 
1050 GOTO 1020 
1060 instrucción 4 


No es difícil darse cuenta de que su or- 
ganigrama es el mismo que el del pro- 
grama anterior. Pero también es eviden- 
te que su estructura es mucho menos cla- 
ra que la de aquél. Puede comprender- 
se fácilmente hasta qué punto un progra- 
ma puede hacerse completamente ¡legi- 
ble si se abusa de las instrucciones de 
transferencia incondicional. 

Uno de los casos en que suele aprove- 
charse con eficacia la instrucción de 
tansferencia incondicional en el lengua- 
je BASIC, se presenta cuando un progra- 
ma, cuya marcha se ha bifurcado por 
cualquier motivo en dos caminos parale- 
los entre sí, debe reunirlos de nuevo en 
uno solo. Consideremos, por ejemplo, un 
organigrama como el siguiente: 


0 TECNICAS DE PROGRAMACIÓN 


En este programa, si se cumple la con- 
dición, se ejecutarán sucesivamente las 
instrucciones 4, 5, 6, 7,8 y 9.Sino se cum- 
ple, se ejecutarán las instrucciones 1, 2, 
3,7, 90 Y Y, 

En PASCAL no será necesario hacer uso 
de la instrucción de transferencia incon- 
dicional en este caso. En efecto, la forma 
más elegante de programarlo sería la si- 
guiente: 


BEGIN P 
IF condición THEN BEGIN 
instrucción 4; 
instrucción 5; 
instrucción 6 
END 


ELSE BEGIN 
instrucción 1; 
instrucción 2; 
instrucción 3 

END; 

instrucción 7; 

instrucción 8; 

instrucción 9 


Sin embargo, en BASIC no disponemos 
de la posibilidad de definir largos blo- 
ques secuenciales de instrucciones (limi- 
tados, como en PASCAL, por las palabras 
reservadas BEGIN-END). La única forma de 
definir un bloque secuencial de instruc- 
ciones consiste en apilarlas todas bajo el 
mismo número de instrucción, separadas 
por dos puntos. Si utilizáramos este modo, 
el organigrama anterior se convertiría en: 


ER IF condición THEN instrucción 4 2 
instrucción 5 : instrucción 6 
ELSE instrucción 1 2: instrucción 2 2 
instrucción 3 - 

1010 instrucción 7 

1020 instrucción 8 

1030 instrucción 9 


Donde la instrucción 1000 es extremada- 
mente larga, pues contiene más de la mi- 
tad del organigrama completo. Se trata, 
por tanto, de una instrucción difícil de 
comprender, que hace el programa 
poco legible y dificulta su corrección en 
caso de detección de errores o de que 
nos veamos obligados a efectuar cam- 
bios. Además, podría ser que ni siquiera 


tengamos la posibilidad de utilizarla, 
pues el número de instrucciones que de- 
bemos incluir en ella (o la longitud de 
cada una) podría ser tan grande que re- 
basemos la longitud máxima que permi- 
te utilizar nuestro intérprete BASIC para 
una sola instrucción. En tal caso, es mu- 
cho mejor utilizar la instrucción de trans- 
ferencia incondicional de la siguiente 
manera: 


IF condición THEN GOTO 1050 
1010 instrucción 
1020 instrucción 
1030 instrucción 
1040 GOTO 1080 

1050 instrucción 
1060 instrucción 
1070 instrucción 
1080 instrucción 
1090 instrucción 
1100 instrucción 


oOsJeoeona dnN- 


Es evidente que este programa es mu- 
cho más fácil de comprender que el an- 
terior, aunque ciertamente menos que el 
de PASCAL, que representa exactamen- 
te el organigrama. 

Puede observarse, en nuestro último 
ejemplo, que una instrucción de transfe- 
rencia incondicional puede aparecer en 
cualquier parte de un programa. Por 
ejemplo, como una de las instrucciones 
secundarias de una instrucción de ejecu- 
ción condicional (tanto en la parte THEN 
como en la parte ELSE, si está presente). 
De hecho, la forma que hemos utilizado 
aqui: 


IF condición THEN GOTO etiqueta 


Es tan frecuente, que recibe un nombre 
propio «instrucción de transferencia con- 
dicional». Además, algunos intérpretes 
BASIC la abrevian de una de las dos for- 
mas siguientes: 


IF condición THEN etiqueta 
IF condición GOTO etiqueta 


Existe otro caso en que puede ser muy 
conveniente utilizar la instucción de 
transferencia incondicional: cuando de- 
seamos abandonar la ejecución de un 
bucle antes de que la condición normal 
de fin de bucle haya llegado a cumplir- 
se. Esto puede suceder porque nuestro 


programa haya detectado una condi- 
ción de error que le exige abandonar la 
marcha normal del programa, para dar 
un mensaje de aviso e intentar recuperar 
una situación desde donde pueda seguir 
ejecutándose normalmente. Este caso es 
aplicable tanto a BASIC como a PASCAL. 
Veamos un ejemplo: 


1000 FOR I=i TO 100 
1010 Instrucción 1 


1020 Instrucción 2 
1030 IF error THEN GOTO 2000 
1040 Instrucción 3 

1050 Instrucción 4 

1060 NEXT 1 


2000 REM Situación de error 


cuyo organigrama es: 


Debe tenerse en cuenta que, aunque 
puede ser conveniente abandonar la 
ejecución de un bucle mediante una ins- 
trucción de transferencia, jamás debe 
penetrarse en el interior de un bucle de 
esa misma manera, pues podrían ocurrir 
efectos impredecibles. Por ejemplo: 


1000 FOR I=i TO 100 
1010 Instrucción 1 

1020 Instrucción 2 

1030 NEXT 1 


2000 GOTO 1020 


Al ejecutar la instrucción 2000, pasa- 
remos a la instrucción de etiqueta 1020. 
Esta se ejecutará correctamente, pero al 
llegar a la 1030, ¿qué valor tiene la va- 
riable |, que controla el bucle? No lo sa- 
bemos. Un programador hábil podría 
controlar incluso esto, pero en general es 
una práctica desaconsejable que dificul- 
ta la comprensión de los programas. 


Además, algunos compiladores BASIC lo 
prohíben, y generan un mensaje de error 
si el programa llega a una instrucción 
NEXT sin haber pasado antes por una ins- 
trucción FOR. 


LOGO 


E Cómo dar 
valor 
a las variables 


ASTA este momento, 
cuando hemos nece- 
sitado utilizar una va- 
riable, hemos puesto 
su nombre precedido 
por dos puntos (:) a 
continuación de la 
definición del proce- 
dimiento donde teníamos que usarla. 
Después, al querer ejecutar este proce- 
dimiento escribiamos su nombre y el va- 
lor que queríamos guardar en el cajón 
correspondiente a la variable. 

Es decir, que para conseguir que un ca- 
jón contenga un determinado valor no 
nos queda más remedio que utilizar esa 
variable junto con un procedimiento. Y 
esto no tiene por qué ser siempre así. 

En muchos casos nos va a interesar usar 
variables dentro de los procedimientos 
sin la obligación de tener que darles va- 
lor sólo cuando ejecutemos ese procedi- 
miento, sino que también podamos ha- 
cerlo con independencia de él. Con ello, 
lograremos, en la mayoría de los casos, 
escribir procedimientos mucho más cor- 
tos. 

El comando 


HAZ “nombre valor 


nos permite guardar en la variable llama- 
da nombre lo que pongamos en valor. 

En valor podemos poner todo lo que se 
nos ocurra: 


— un número 

— una palabra 

— una lista de palabras 

— el contenido de otra variable 

— el resultado de una operación 

Se dice que este comando es un co- 
mando de asignación, ya que lo único 
que hace es asignar a una variable (me- 


ter en su cajón correspondiente) un de- 
terminado valor sin que esto modifique 
ninguna característica (posición, rum- 
bo...) de la tortuga. 

Veamos con algunos ejemplos lo que 
guardaría la tortuga en la variable CA- 
JON al utilizar este nuevo comando. Para 
ello, tras hacer cada asignación vamos 
a poner el comando ES para que nos es- 
criba el contenido de la misma: 


? HAZ "CAJON 8 
? ES ¿CAJON 

8 
? HAZ "CAJON "HOLA 
? ES :CAJON 

HOLA 
? HAZ "CAJON [QUE TALI 
? ES ¿CAJON 

QUE TAL 

"OTROCAJON 5 
"CAJON :*OTROCAJON 

? ES ¿CAJON 

s 
? HAZ "CAJON S+4 

- 7? ES :CAJON 

9 
? HAZ "CAJON 2*3 
? ES ¿CAJON 

6 
? HAZ "OTROCAJON 12-5 


? HAZ "CAJON :OTROCAJON+3 


?7 ES ¿OTROCAJON 


Zi 


? ES ¿CAJON 


10 


Incluso podemos asignar como valor a 
una variable su propio contenido opera- 
do con otra cosa (un número, otra varia- 
ble...). Por ejemplo: 


"CAJON 2 


¿CAJON 


Z "CAJON :CAJON+3 


¿CAJON 


"OTROCAJON 4+2 
“CAJON ¿CAJON * :OTROCAJON 
? ES ¿OTROCAJON 


6 


? ES ¿CAJON 


39 


Como puede verse, el utilizar el conte- 
nido de una variable para asignar valor 
a otra no implica que se modifique el va- 
lor de la primera, sino que éste se man- 
tiene. 


[| Os proponemos 


1. Intenta averiguar qué valor escribi- 
ria la tortuga si después de cada coman- 
do HAZ ponemos el comando 


ES :VAR 

2? HAZ “VAR 4 

2 HAZ “VARO 

2 HAZ “VAR 2' 8 

2 HAZ “VAR 5+2+ 1 

2 HAZ “VAR (8 - 5)" 3 

2 HAZ “VAR 6 / 2 

2. Ahora lo mismo con estas otras 
asignaciones un poco más complicadas: 


a) ?HAZ “VARI 12- 5 
? HAZ “VAR2 :VAR1 
? ES :VAR1 
? ES :VAR2 

b) ?HAZ “VAR3 0 
? HAZ “VARA4 :VAR3 + 5 
? ES :VAR3 
? ES :VAR4 


c) ?HAZ "VAR5 6 
? HAZ “VARÓ :VAR5 * 2 
? HAZ “VAR6: VAR6/2 
? ES :VAR5 
? ES :VARÓ 
? HAZ “VAR5 O 
? HAZ “VAR :VAR5 + 7 
? ES :VAR5 
? ES :VARÓ 
? HAZ “VARÓ :VARÓ - 3 
? ES :VAR5 
? ES :VARÓ 
? HAZ :VAR5 :VARÓ 
? ES :VAR5 
? ES :VARÓ 


¡O El mismo procedimiento 
de dos maneras 


Supongamos que queremos pintar 
ocho cuadrados girados cada uno con 
respecto al anterior y que van aumentan- 
do de tamaño: 


Necesitamos un procedimiento para 
dibujar cuadrados de tamaño variable: 


? PARA CUADRADO :LADO 
> REPITE 4 [AV :LADO GD 941 


> FIN 


Sin utilizar el comando HAZ, el procedi- 
miento para obtener la figura anterior se- 
ra: 


» LOGO 


? PARA CUAGIRADOS1 


> OT 


> FIN 


CUADRADO 19 GD 45 


CUADRADO 15 GD 45 
CUADRADO 28 GD 45 


> CUADRADO 25 GD 45 


Como podemos ver el tamaño del lado 
de los cuadrados va aumentando de 5 
CUADRADO 35 GD 45 en 5, partiendo de un valor inicial igual a 
CUADRADO 4% GD 45 10. 
Si ahora usamos el comando HAZ, se 
puede escribir: 


CUADRADO 3% GD 45 


CUADRADO-45 GD 45 


Y FARA CUAGIRADOS2 :PRIMERLADO 


> REFTTE 8 (CUADRADO. »FRIMEFRLADO 5D 45 HAZ "PRIMERLADO 


¿FRIMERLADO + 51 


Para obtener la figura tendríamos que de dar cualquier tamaño al primer cua-. 
poner: drado y, por tanto, a todos los demas. 


: ? CUAGIRADOS 10 


Con esto vemos que escribiendo el O Mas ejemplos con 


procedimiento de la segunda forma nos el comando HAZ 
queda mucho más corto que con la pri- 
mera y, además, tenemos la posibilidad Vamos a hacer el siguiente dibujo: 


 REFITE 4 TAV :ANCHO SD 99] 


Primero tenemos que definir un proce- 
dimiento que dibuje una bandera: 


> FIN 


? FARA BANDERÁ ;ANCHO 


+ HAZ “LARGO ¿ANCHO + 


+ AV ¿LARGO Ahora podemos usar este procedi- 
. Tas miento para obtener el conjunto de las 
banderas: 


? FARA BANDMOLINO :TAMAÑO 


> REPITE 8 CBANDERA ¿TAMAÑO RE :TAMAÑO GD 45] 


> GD 22.35 


> HAZ "TAMAÑO :TAMAÑO / 2 


> REFITE 8 [BANDERA ¿TAMAÑO RE :TAMAÑO GD 45] 


O también se puede escribir así: 


? PARA BANDMOLINO :TAMAÑO 


> REPITE € [BANDERA ¿TAMAÑO RE ¿TAMAÑO GD 22.5 HAZ "TAMAÑO 


¿TAMAÑO /. 2 BANDERA ¿TAMAÑO RE ¿TAMAÑO GD 22.5 HAZ "TAMAÑO 


¿TAMAÑO * 2] 


Para ejecutarlo, podemos poner, por 
ejemplo: 


? BANDMOLINO 60 


Ahora vamos a dibujar esta espiral: 


a LOGO 


Tenemos que poner: 


? FARA ESPIRAL ¿LONGITUD 


> REFITE 15 [AY ¿LONGITUR GD 96 HAZ "LONSITUD ¿LONGITUD + 7] 


Si queremos que la diferencia entre los ble para guardar el incremento. Nos que- 
distintos lados de la espiral no sea siem- daria asi: 
pre la misma (7), necesitamos otra varia- 


7 PARA ESPISAL ¿LONGITUD ¿INCREMENTO 


> REPITE 15 CAV  :LONGITUD GD 99 H22 "LONGITUD ¿LONGITUD + 


2 INCREMENTOJ 


Por último, tenemos la posibilidad de mMacenar el número de lados correspon- 
hacer espirales que no sean cuadradas, diente a la forma que queremos obtener: 


sino que puedan tener varias formas triangular —> 3 
(triangular, pentagonal...). Para ello usa- cuadrada —> 4 
remos otra variable que nos sirva para al- pentagonal —> 5 


? FARA CUALQUIERESFIRAL ¡LONGITUD 


2: INCREMENTO ¿NUMERO 


REFITE “15 [AY . «¿LONGITUD CD 3€8 / ¿NUMERO MAZ "LONGITUD 


1. ONGYFUD + 3 INCREMENTO] 


Para que la tortuga dibuje diferentes espirales, podríamos poner: 


? CUALQUIERESPIRAL 10 5.3 


2 BRapT 


7? CUALQUIERESPFIRAL 12 35 


7 BR DT 


?7 CUALQUIERESFIRAL 7 2 6 


Os proponemos 


1. Intenta dibujar esta columna de 2. Ahora puedes probar con esta ca- 
cuadrados utilizando el comando HAZ: dena de triangulos: 


3. También puedes pintar esta figura: 4. ¿Qué te parece este trébol? 
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| Ordenación 
de datos 


menudo se plantea 
el problema de tener 
que ordenar según 
un criterio dado un 
conjunto de datos. 
Por ejemplo, puede 
hacer falta colocar 
por orden alfabético 
los apellidos de los alumnos de un grupo, 
y ordenarlos en función de las notas de 
un examen. 

Existen multitud de métodos para hacer 
esto y, aunque quizá veamos otros más 
adelante, ahora vamos a emplear el co- 
nocido como de «selección directa» 
que, siendo muy sencillo de entender y 
programar, es razonablemente rápido 
cuando el número de elementos a orde- 
nar no es excesivamente alto. Consiste 
en lo siguiente: 

Supongamos que tenemos 10 notas 
guardadas en la TABLA, una variable de 
tipo «array of real». 

Se empieza por buscar la nota mayor 
de todas y una vez encontrada se inter- 
cambia con la que ocupaba la primera 
posición de TABLA. Tras este proceso TA- 
BLA contiene, evidentemente, las mismas 
notas que al principio, sólo que con la 
mayor de todas en primera posición. 

A continuación se repite el mismo pro- 
ceso, pero con las 9 notas restantes. Es 
decir, se busca la mayor de esas 9 (que 
están en las posiciones 2 a 10) y una vez 
se intercambia con la que estaba en la 
posición 2. Tras esto, TABLA sigue conte- 
niendo la nota mayor en la posición 1 y 
además la segunda mayor en la posición 2. 

Este proceso se repite para las posicio- 
nes 3 a 10 (con lo que queda la tercera 
nota en la posición 3), 4 a 10, etc., hasta 
llegar a hacerlo con las posiciones 9 a 


10, momento en que queda TABLA defini- 
tivamente ordenada. 
Por ejemplo, si las notas fueran: 


2769318475 


al buscar la mayor de las diez se encuen- 
tra 9 en la cuarta posición; entonces se 
intercambia con la de la primera posi- 
ción, 2 (la barra vertical separa las ya or- 
denadas de las demás): 


91762318475 


Ahora se repite el proceso con todas 
menos la primera, permutándose, por 
tanto, el primer 7 con el 8 y llegándose a: 


98162317475 


A continuación se repite con todas me- 
nos con las dos primeras, etc., hasta te- 
ner la TABLA ordenada. Las diferentes si- 
tuaciones por las que pasaría la TABLA 
serían: 


98712316475 
98771316425 
98776113425 
98776513424 
987765413241 () 
98776543124 () 
98776543214 


Si utilizamos el índice | para indicar qué 
nota se está buscando (primera, segun- 
da...) y Total para indicar el total de no- 
tas, la estructura queda así: 


Para | variando su valor desde 4 hasta 
Total- 4 hacer: 

— Buscar la mayor nota de las 
comprendidas entre las posi- 
ciones | y Total y permutarla 
con la de la posición l. 


Cuando la mayor entre | y Total es pre- 
cisamente la de la posición |, no es ne- 
cesario permutarla consigo misma; son 
las situaciones marcadas con (*) en el 
ejemplo. Por tanto, la estructura queda- 
ría mejor de esta otra manera: 


Para | variando su valor desde 4 hasta 
Total-4 hacer: 

— Buscar la mayor nota de las 
comprendidas entre las posi- 
ciones | y Total y si no es la de 
la posicion |, permutarla con 
ella. 


program Ordenar; 


const 
Max = 100; 
Long = 12; 
type 


En realidad, lo más corriente es que se 
tengan que ordenar fichas en función del 
valor de alguno de sus campos (las no- 
tas del ejemplo serían un campo más de 
las fichas de los alumnos). Si añadimos 
las instrucciones necesarias para leer 
datos del teclado y presentarlos en pan- 
talla, tenemos el siguiente programa: 


(k Máximo número de alumnos posible %X) 
(X Máximo número de letras por nombre Xx) 


Nombre_t = array [1..Longl] of char; 


Ficha_t = record 
Nombre, 
Apellidoi, 


Apellido2 : Nombre_t; 


Nota_A, 

Nota_B, 

Nota_C : real 
end; 


Tabla_t = array [1..MaxJ of Ficha_t; 


var 
Grupo : Tabla_t; 
TotalGrupo: integer; 


procedure LeeDatos (var Tabla: Tabla_tj var Total: integer); 


(* Pide datos y los guarda en Tabla. 


x) 


(Xx El número de datos introducidos lo devuelve en Total *X) 


var 
I : integer; 
Ok: boolean; 


begin 


write (*Número de alummos (de 1 a *,Max,”*): ”); 


repeat 
readln (Total); 


Ok := (1 <= Total) and (Total <= Max); 


if not Ok then write (*No vale. 


until Ok; 


Repita:”) 


writeln ("Comience a introducir datos.”); 
for 1 := 1 to Total do with Tabla [113 do 


begin 

witeln; 

write (*”Nombre: 

wite ("Primer apellido: 


?)3 readin (Nombre); 
*)3 readin (Apellido1); 


write ("Segundo apellido: ”); readln (Apellido2); 


witeln; 


write ("Nota Az ”)3 readln (Nota_A)3 
write ("Nota B: ”); readlin (Nota_B); 
write ("Nota C2z ”)3 readin (Nota_C) 


end 
end; 


E ) 


procedure Presenta (var Tabla: Tabla_t;3 Total: integer); 


(Xx Presenta el contenido de TABLA. 


x) 


(X Se usa VAR por cuestión de tiempo y espacio. %X) 


var l: integer; 
begin 


for 1 := 1 to Total do with Tabla [113 do 


begin 
witeln; 


writeln (Nombre,” ”,Apellido1,” ”,Apellido2); 
writeln (*”Nota Az ”?,Nota_A :4:1); 
writeln (*Nota B: ”,Nota_B :4:1); 


writeln (*Nota Cz ”,Nota_C :4:1) 
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procedure Ordena (var Tabla: Tabla_t; Total: integer); 


(Xx Ordena el contenido de Tabla según el valor x) 
(£ de Nota_A por el método de selección directa X) 


var 
IndiceMayor: integer; 
Mayor : real; 
FichaAuxiliar:z Ficha_t; 


begin 
for 1 := 1 to Total - 1 do 
begin 
a Y) 
(X Buscar la mayor de entre 1 y Total. x) 
(Xx En principio se toma como mayor la de índice 1 X) 
(Xx y luego se exploran las siguientes: 


Mayor := Tabla[1J.Nota_A; 
IndiceMayor := 1; 


for J := 1 + 1 to Total do with Tabla [JJ do 
if Nuta_A > Mayor then (Xk <---- COMPARACION *x) 


begin 


(Kk La mayor por ahora pasa a ser la de índice J: *) 


Mayor := Nota_A; 
IndiceMayor := J 


(Xx Si la mayor no es la de índice 1, se permuta 


(X su ficha con la de 1. 


E 


if IndiceMayor <> 1 then 
begin 


o x) 


Fichañuxiliar := Tabla [IndiceMayorJ; 
Tabla [IndiceMayorJ := Tabla [1]; 


Tabla [11 := FichaAuxiliar 


a y) 


begin 

LeeDatos (Grupo, TotalGrupo); 
Ordena (Grupo, TotalGrupo); 
writeln (” 

Presenta (Grupo, TotalGrupo) 
end. 


Si en lugar del test “Nota.A > Mayor” 
se hubiera utilizado “Nota.A < Mayor”, 
las notas acabarían ordenadas de me- 
nor a mayor, pero entonces sería conve- 
niente cambiar los nombres de Mayor e 
IindiceMayor por Menor e IndiceMenor, 
respectivamente, para que resultasen 
coherentes. 


Si, por ejemplo, hubiese que ordenar 
las fichas alfabéticamente según el pri- 
mer apellido, el procedimiento sería simi- 
lar. La única diferencia consistiría en que 
habría que explorar las fichas buscando 
cada vez, no la de mayor Nota.A, sino la 
que tuviese el apellido más adelantado 
alfabéticamente. Entonces, el procedi- 
miento Ordena sería: 


procedure Ordena (var Tabla: Tabla_t; Total: integer); 


(Xx Ordena la variable Tabla según el contenido de Y) 
(X* Apellidoi por el método de selección directa. x) 


var 


I,J, 

IndicePrimero: integer; 

Primero : Nombre_t; 
FichañAuxiliar: Ficha_t; 


begin 
for 1 := 1 to Total -— 1 do 


IndicePrimero := 1; 


begin 


IndicePrimero := J 


begin 


end 


Como se ve, el procedimiento es prác- 
ticamente idéntico al de las notas, sólo 
que adaptado al nuevo tipo de campo y 
con algunos nombres distintos para que 
resulte más claro. 

Dados dos números N1 y N2, para sa- 
ber cuál está por delante basta con eva- 
luar la expresión lógica “N1 > N2”. Sin 
embargo, dadas dos palabras, para sa- 
ber cuál es la que va por delante alfabé- 
ticamente el proceso es un poco más 
complejo: hay que compararlas letra a 
letra hasta encontrar el primer par de le- 
tras distintas entre sí y una vez localiza- 
das mirar a ver cuál va antes alfabética- 
mente. En caso de llegarse al final de al- 
guna de las palabras sin haber encontra- 


for J := 1 + 1 to Total do with Tabla [JJ] do 
if Antes (Apellidoi, (* que Xx) Primero) then 


(x El primero por ahora pasa a ser el de índice J: Xx) 
Primero := Apellido1; 


end; 
a D) 
(X Si el primero no es el de índice I, X) 
(X se permuta su ficha con la de l. x) 
e $) 


if IndicePrimero <> 1 then 


FichaAuxiliar := Tabla [IndicePrimeroJ; 
Tabla [IndicePrimerol := Tabla [1]; 
Tabla [11 := FichaAuxiliar 


(x Buscar el primer apellido de entre 1 y Total. 
(Xx En principio se toma como primero el de índice 1 X) 
(*X y luego se exploran los siguientes: 
AAA e 
Primero := Tabla[11J.Apellidol; 


A A A A A e e e e e e e e e e o a e 


do ninguna diferencia, se considera que 
la más corta va por delante; no obstan- 
te, dado que las palabras se guardan en 
las variables complementándolas por la 
derecha con espacios en blanco o chr 
(0), y que estos caracteres, en general, 
están alfabéticamente por delante de 
cualquier letra, es posible explorar los 
dos “array of char” de principio afin sin 
preocuparse de las longitudes reales de 
las palabras. 


En el último procedimiento Ordena se 
utiliza la función ANTES para hacer estas 
comparaciones; deberá ubicarse en el 
programa por delante de Ordena o, me- 
jor aún, dentro de él: 


function Antes (A,B: Nombre_t): boolean; 


(kx Devuelve TRUE si A va por delante de B alfabéticamente *) 


var l: integer; 
begin 


E 1) 


(£ Se exploran las dos palabras de izquierda a X*) 
(xk derecha buscando la primera letra distinta: 


repeat 1 := I + 1 until (ACIJ] <> B[1J1) or (1 = Long); 
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Antes := (A[IJ < B[I1J) 


Probablemente sería bueno pasar las 
letras a mayúsculas antes de comparar- 
las para evitar sorpresas; para ello se po- 
dría utilizar la función MAYUSCULA que ya 
conocemos. 


(NOTA: Con el tipo no estándar «string» 
disponible con algunos compiladores sí 
es posible comparar directamente dos 
palabras.) 


UB 


(Xx Una vez encontradas (o llegado hasta el final)  %) 
(X se comparan para saber qué palabra va antes: x) 


(Bo 


A 
(xXx Si A y B fueran iguales, se estaría comparando  %X) 
(X las dos últimas letras de cada una y como son x) 
(X iguales, ANTES valdría FALSE. x) 
AAA io e a 


¡o ----4) 


pa ——-1) 


8) 


En definitiva, el procedimiento ORDENA 
se puede adaptar a prácticamente cual- 
quier tipo de variable, con tal de dispo- 
ner de alguna función que nos permita 
decidir de entre dos valores cuál va por 
delante. Por otra parte, si en el programa 
del ejemplo hubiese que añadir más 
campos a las fichas, lo único que habría 
que cambiar, además de su definición, 
serían los procedimientos Presenta y Lee- 
Datos. 


FORTRAN 


ORTRAN es el nom- 
bre de un lenguaje 
de alto nivel orienta- 
do a cálculos científi- 
cos. De ahí su nom- 
bre: FORmula TRANSs- 
lator, o traductor de 
fórmulas. 

Fue creado en la compañía IBM en 
1956 y ha ido evolucionando a lo largo 
de los años, dando lugar a diferentes ver- 
siones, entre las que destacan FORTRAN 
Il y FORTRAN IV. 

Todas estas versiones tienen en común 
una serie de instrucciones delimitadas y 
definidas por la ANS (American National 
Standard), que trata de homologar los 
lenguajes de programación. 

Los programas que se muestran como 
ejemplo en estos fascículos han sido ela- 
borados en un IBM PC con FORTRAN IV de 
MICROSOFT. 

Los temas que se desarrollarán son, a 
grandes rasgos: 


— Definición de variables. 

— Sentencias de entrada/salida. 

— Operaciones aritméticas. 

— Instrucciones condicionales: 

— Bucles. 
que permiten al lector obtener una pri- 
mera visión del FORTRAN 


O Normas de escritura 


Las 80 columnas de la pantalla se sub- 
dividen de la forma siguiente: 


OTROS LENGUAJES 


Las cinco primeras se utilizan para es- 
cribir los números de sentencia, que per- 
miten identificar una determinada ins- 
trucción. En otros lenguajes se denomi- 
nan etiquetas (label). 

Si en la columna ó6 aparece un carác- 
ter cualquiera, indica la continuación de 
la línea anterior. 

Las instrucciones se deben escribir en- 
tre las columnas 7 y 72. 

Si en vez de una sentencia ejecutable 
se desea escribir una línea de comenta- 
rio, ignorada por el compilador, se debe 
escribir una «C» en la columna 1. 

Las restantes columnas (73-80) que se 
empleaban anteriormente para numerar 
las sentencias han perdido ahora su sig- 
nificación. 


'O Nombres FORTRAN 


Un nombre válido para el Fortran es una 
palabra con una longitud máxima de 6 
caracteres. El primero debe ser una letra, 
mientras que los restantes pueden ser un 
dígito o letra. 

El primer carácter sirve para identificar 
el tipo de la variable. 

Si empieza por |, J,K,L, Mo N, conten- 
dá valores enteros. 

Si el primer carácter está en el rango 
A-H o 0-Z, se trata de una variable real. 

Según estas normas, las variables AREA 
y RADIO serán reales y podrán contener 


so OTROS LENGUAJES 


valores reales, mientras que MINIMO sólo INTEGER 

podrá almacenar números enteros. REAL variable-1, variable-2,... 
Existe una sentencia que permite defi- LOGICAL 

nir una variable, independientemente de Esta sentencia debe ir al comienzo del 

su inicial: programa. 


C PROGRAMA QUE CALCULA EL AREA DE UN TRIANGULO 


INTEGER BASE, ALTURA 
WRITE € 0, 100 > 

109 FORMAT € 1X, “INTRODUZCA BASE Y ALTURA DEL TRIANGULO - > 
READ ( 0, 200 > BASE, ALTURA 

200 FORMAT € 12, 1X, 12) 
AREA = BASE: + ALTURA / 2.0 
WRITE (€ 0, 300 > AREA 

300 FORMAT ( 1X, “EL RESULTADO ES “, F4.1 > 

STOP 

END 


